Лабораторная работа № 5

Задание 3*

Задание: Разработать "реакцию" приложения на завершение работы (событие - нажатие на кнопку закрытия окна или <Alt>+<F4>) таким образом, чтобы при попытке закрытия окна появлялось диалоговое окно (см. рис.), в котором можно выбрать два варианта – продолжить или завершить работу.

 

Этапы работы:

1. Создайте в отдельной папке копию приложения Калькулятор.

2. Задайте для главной формы неизменяемые границы.

3. Создайте форму fmMess, сохраните модуль как Form_Mess.pas.

4. Разместите на новой форме три компонента: надпись (lbMess) и две кнопки (btYes, btNo). Задайте соответствующий стиль границы.

5. Для btYes опишите событие OnClick как  

Application.Terminate;

6. Подключите модуль Form_Mess и проверьте, что он появился в команде uses главного модуля.

7. Для btNo опишите событие OnClick как

fmMess.Hide;

8. Для главной формы опишите событие OnClose (страница Events в Инспекторе Объектов) как

fmMess.Visible:=true;    – можно и так:  fmMess.Show;

Action:=caNone;            – это переменная, которая должна принимать какое-либо значение (например, никакое), когда обрабатывается событие закрытия формы.

9. Проверьте работу приложения.

 

 

Задание 2. Заменить сообщения об ошибках, выводимые в строку результата, на стандартные окна-сообщения с соответствующими текстами.